home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / pcwpsfix.zip / IDG.INI < prev    next >
Text File  |  1992-09-16  |  30KB  |  1,050 lines
  1. % IDG modifications to psdown2.ini from PCW.
  2.  
  3. % Fixes problems with underline; same fixes could be used with DU and CO.
  4. % Fixes scaling problems with IBM graphic characters.
  5. % Re-designed IBM line characters with thicker lines & wider spacings
  6. % Corrected high IBM-Greek assignments.
  7.  
  8. % Changes #A routine to make line spacing n decipoints, instead of 1/n inch.
  9. % Introduces support for user choice of quotes or primes
  10. % Supports Symbol font in standard PS encoding.
  11. % removes unnecessary items from B & B font definition
  12. % And deletes all so-far-detected nonsense.
  13.  
  14. % This also implements encode-on-demand, which give some chance of
  15. % the output file working with Ghostscript. (GS runs out of VM, if
  16. % you try to re-encode the full PCW collection of fonts
  17.  
  18.  
  19. 15 dict dup begin               % big enough!
  20. /FontType 3 def
  21. /FontMatrix[.001 0 0 .001 0 0] def
  22. /FontBBox[0 0 600 1000] def
  23. /Encoding 256 array def
  24. 0 1 255 {Encoding exch /.notdef put} for
  25. Encoding
  26. dup (1) 0 get /G176 put
  27. dup (2) 0 get /G177 put
  28. dup (3) 0 get /G178 put
  29. dup (a) 0 get /G179 put
  30. dup (b) 0 get /G180 put
  31. dup (c) 0 get /G181 put
  32. dup (d) 0 get /G182 put
  33. dup (e) 0 get /G183 put
  34. dup (f) 0 get /G184 put
  35. dup (g) 0 get /G185 put
  36. dup (h) 0 get /G186 put
  37. dup (i) 0 get /G187 put
  38. dup (j) 0 get /G188 put
  39. dup (k) 0 get /G189 put
  40. dup (l) 0 get /G190 put
  41. dup (m) 0 get /G191 put
  42. dup (n) 0 get /G192 put
  43. dup (o) 0 get /G193 put
  44. dup (p) 0 get /G194 put
  45. dup (q) 0 get /G195 put
  46. dup (r) 0 get /G196 put
  47. dup (s) 0 get /G197 put
  48. dup (t) 0 get /G198 put
  49. dup (u) 0 get /G199 put
  50. dup (v) 0 get /G200 put
  51. dup (w) 0 get /G201 put
  52. dup (x) 0 get /G202 put
  53. dup (y) 0 get /G203 put
  54. dup (z) 0 get /G204 put
  55. dup (A) 0 get /G205 put
  56. dup (B) 0 get /G206 put
  57. dup (C) 0 get /G207 put
  58. dup (D) 0 get /G208 put
  59. dup (E) 0 get /G209 put
  60. dup (F) 0 get /G210 put
  61. dup (G) 0 get /G211 put
  62. dup (H) 0 get /G212 put
  63. dup (I) 0 get /G213 put
  64. dup (J) 0 get /G214 put
  65. dup (K) 0 get /G215 put
  66. dup (L) 0 get /G216 put
  67. dup (M) 0 get /G217 put
  68. dup (N) 0 get /G218 put
  69. dup (O) 0 get /G219 put
  70. dup (P) 0 get /G220 put
  71. dup (Q) 0 get /G221 put
  72. dup (R) 0 get /G222 put
  73. dup (S) 0 get /G223 put
  74. dup (T) 0 get /G169 put
  75. dup (V) 0 get /G372 put
  76. (U) 0 get /G376 put
  77.  
  78. % Metrics not needed! all chars same size
  79.  
  80. % BBox, ditto
  81.  
  82. /CharacterDefs 52 dict def
  83. CharacterDefs begin
  84. /.notdef {} def
  85. /G176
  86. {newpath 300 0 moveto 300 1000 lineto
  87. 600 setlinewidth
  88. stroke} def
  89. /G177
  90. {newpath 300 0 moveto 300 1000 lineto
  91. 600 setlinewidth
  92. stroke} def
  93. /G178
  94. {newpath 300 0 moveto 300 1000 lineto
  95. 600 setlinewidth
  96. stroke} def
  97. /G179
  98. {newpath 300 0 moveto 300 1000 lineto
  99. 30 setlinewidth
  100. stroke} def
  101. /G180
  102. {newpath 300 0 moveto 300 1000 lineto
  103. 300 500 moveto
  104. 0 500 lineto
  105. 30 setlinewidth
  106. stroke} def
  107. /G181
  108. {newpath 300 0 moveto 300 1000 lineto
  109. 300 450 moveto
  110. 0 450 lineto
  111. 300 550 moveto
  112. 0 550 lineto
  113. 30 setlinewidth
  114. stroke} def
  115. /G182
  116. {newpath 350 0 moveto 350 1000 lineto
  117. 250 0 moveto 250 1000 lineto
  118. 250 500 moveto
  119. 0 500 lineto
  120. 30 setlinewidth
  121. stroke} def
  122. /G183
  123. {newpath 350 0 moveto 350 500 lineto
  124. 250 0 moveto 250 500 lineto
  125. 350 500 moveto
  126. 0 500 lineto
  127. 30 setlinewidth
  128. stroke} def
  129. /G184
  130. {newpath 300 0 moveto 300 550 lineto
  131. 300 450 moveto
  132. 0 450 lineto
  133. 300 550 moveto
  134. 0 550 lineto
  135. 30 setlinewidth
  136. stroke} def
  137. /G185
  138. {newpath 350 0 moveto 350 1000 lineto
  139. 250 0 moveto 250 450 lineto
  140. 250 550 moveto 250 1000 lineto
  141. 250 550 moveto
  142. 0 550 lineto
  143. 250 450 moveto
  144. 0 450 lineto
  145. 30 setlinewidth
  146. stroke} def
  147. /G186
  148. {newpath 350 0 moveto 350 1000 lineto
  149. 250 0 moveto 250 1000 lineto
  150. 30 setlinewidth
  151. stroke} def
  152. /G187
  153. {newpath 250 0 moveto 250 450 lineto
  154. 0 450 lineto
  155. 350 0 moveto 350 550 lineto
  156. 0 550 lineto
  157. 30 setlinewidth
  158. stroke} def
  159. /G188
  160. {newpath 0 450 moveto 350 450 lineto
  161. 350 1000 lineto
  162. 0 550 moveto 250 550 lineto
  163. 250 1000 lineto
  164. 30 setlinewidth
  165. stroke} def
  166. /G189
  167. {newpath 0 500 moveto 350 500 lineto
  168. 350 1000 lineto
  169. 250 500 moveto
  170. 250 1000 lineto
  171. 30 setlinewidth
  172. stroke} def
  173. /G190
  174. {newpath 0 450 moveto 300 450 lineto
  175. 300 1000 lineto
  176. 0 550 moveto 300 550 lineto
  177. 30 setlinewidth
  178. stroke} def
  179. /G191
  180. {newpath 300 0 moveto 300 500 lineto
  181. 0 500 lineto
  182. 30 setlinewidth
  183. stroke} def
  184. /G192
  185. {newpath 300 1000 moveto 300 500 lineto
  186. 600 500 lineto
  187. 30 setlinewidth
  188. stroke} def
  189. /G193
  190. {newpath 0 500 moveto 600 500 lineto
  191. 300 500 moveto 300 1000 lineto
  192. 30 setlinewidth
  193. stroke} def
  194. /G194
  195. {newpath 0 500 moveto 600 500 lineto
  196. 300 500 moveto 300 0 lineto
  197. 30 setlinewidth
  198. stroke} def
  199. /G195
  200. {newpath 300 0 moveto 300 1000 lineto
  201. 300 500 moveto 600 500 lineto
  202. 30 setlinewidth
  203. stroke} def
  204. /G196
  205. {newpath 0 500 moveto 600 500 lineto
  206. 30 setlinewidth
  207. stroke} def
  208. /G197
  209. {newpath 0 500 moveto 600 500 lineto
  210. 300 0 moveto 300 1000 lineto
  211. 30 setlinewidth
  212. stroke} def
  213. /G198
  214. {newpath 300 0 moveto 300 1000 lineto
  215. 300 450 moveto
  216. 600 450 lineto
  217. 300 550 moveto
  218. 600 550 lineto
  219. 30 setlinewidth
  220. stroke} def
  221. /G199
  222. {newpath 250 0 moveto 250 1000 lineto
  223. 350 0 moveto 350 1000 lineto
  224. 350 500 moveto
  225. 600 500 lineto
  226. 30 setlinewidth
  227. stroke} def
  228. /G200
  229. {newpath 250 1000 moveto 250 450 lineto
  230. 600 450 lineto
  231. 350 1000 moveto 350 550 lineto
  232. 600 550 lineto
  233. 30 setlinewidth
  234. stroke} def
  235. /G201
  236. {newpath 250 0 moveto 250 550 lineto
  237. 600 550 lineto
  238. 350 0 moveto 350 450 lineto
  239. 600 450 lineto
  240. 30 setlinewidth
  241. stroke} def
  242. /G202
  243. {newpath 0 450 moveto 600 450 lineto
  244. 0 550 moveto 250 550 lineto 250 1000 lineto
  245. 600 550 moveto 350 550 lineto 350 1000 lineto
  246. 30 setlinewidth
  247. stroke} def
  248. /G203
  249. {newpath 0 450 moveto 250 450 lineto 250 0 lineto
  250. 600 450 moveto 350 450 lineto 350 0 lineto
  251. 0 550 moveto 600 550 lineto
  252. 30 setlinewidth
  253. stroke} def
  254. /G204
  255. {newpath 250 0 moveto 250 1000 lineto
  256. 350 0 moveto 350 450 lineto 600 450 lineto
  257. 350 1000 moveto 350 550 lineto 600 550 lineto
  258. 30 setlinewidth
  259. stroke} def
  260. /G205
  261. {newpath 0 450 moveto 600 450 lineto
  262. 0 550 moveto 600 550 lineto
  263. 30 setlinewidth
  264. stroke} def
  265. /G206
  266. {newpath 0 450 moveto 250 450 lineto 250 0 lineto
  267. 0 550 moveto 250 550 lineto 250 1000 lineto
  268. 350 0 moveto 350 450 lineto 600 450 lineto
  269. 350 1000 moveto 350 550 lineto 600 550 lineto
  270. 30 setlinewidth
  271. stroke} def
  272. /G207
  273. {newpath 0 450 moveto 600 450 lineto
  274. 0 550 moveto 600 550 lineto
  275. 300 550 moveto 300 1000 lineto
  276. 30 setlinewidth
  277. stroke} def
  278. /G208
  279. {newpath 0 500 moveto 600 500 lineto
  280. 250 500 moveto 250 1000 lineto
  281. 350 500 moveto 350 1000 lineto
  282. 30 setlinewidth
  283. stroke} def
  284. /G209
  285. {newpath 0 450 moveto 600 450 lineto
  286. 0 550 moveto 600 550 lineto
  287. 300 450 moveto 300 0 lineto
  288. 30 setlinewidth
  289. stroke} def
  290. /G210
  291. {newpath 0 500 moveto 600 500 lineto
  292. 250 500 moveto 250 0 lineto
  293. 350 500 moveto 350 0 lineto
  294. 30 setlinewidth
  295. stroke} def
  296. /G211
  297. {newpath 250 500 moveto 600 500 lineto
  298. 250 500 moveto 250 1000 lineto
  299. 350 500 moveto 350 1000 lineto
  300. 30 setlinewidth
  301. stroke} def
  302. /G212
  303. {newpath 300 450 moveto 600 450 lineto
  304. 300 550 moveto 600 550 lineto
  305. 300 450 moveto 300 1000 lineto
  306. 30 setlinewidth
  307. stroke} def
  308. /G213
  309. {newpath 300 450 moveto 600 450 lineto
  310. 300 550 moveto 600 550 lineto
  311. 300 550 moveto 300 0 lineto
  312. 30 setlinewidth
  313. stroke} def
  314. /G214
  315. {newpath 250 500 moveto 600 500 lineto
  316. 250 500 moveto 250 0 lineto
  317. 350 500 moveto 350 0 lineto
  318. 30 setlinewidth
  319. stroke} def
  320. /G215
  321. {newpath 0 500 moveto 600 500 lineto
  322. 250 0 moveto 250 1000 lineto
  323. 350 0 moveto 350 1000 lineto
  324. 30 setlinewidth
  325. stroke} def
  326. /G216
  327. {newpath 0 450 moveto 600 450 lineto
  328. 0 550 moveto 600 550 lineto
  329. 300 0 moveto 300 1000 lineto
  330. 30 setlinewidth
  331. stroke} def
  332. /G217
  333. {newpath 0 500 moveto 300 500 lineto
  334. 300 1000 lineto
  335. 30 setlinewidth
  336. stroke} def
  337. /G218
  338. {newpath 300 0 moveto 300 500 lineto
  339. 600 500 lineto
  340. 30 setlinewidth
  341. stroke} def
  342. /G219
  343. {newpath 300 0 moveto 300 1000 lineto
  344. 600 setlinewidth
  345. stroke} def
  346. /G220
  347. {newpath 300 0 moveto 300 500 lineto
  348. 600 setlinewidth
  349. stroke} def
  350. /G221
  351. {newpath 150 0 moveto 150 1000 lineto
  352. 300 setlinewidth
  353. stroke} def
  354. /G222
  355. {newpath 450 0 moveto 450 1000 lineto
  356. 300 setlinewidth
  357. stroke} def
  358. /G223
  359. {newpath 300 500 moveto 300 1000 lineto
  360. 600 setlinewidth
  361. stroke} def
  362. /G169
  363. {newpath 30 0 moveto 30 250 lineto
  364.